home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / rascal.arc / SCREEN.INC < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  69 lines
  1. '       SCREEN.INC: a set of sample screen formatting routines
  2. '                    (C) Copyright 1983 Marty Franz
  3.  
  4. PROCEDURE INITIALIZE.SCREEN 'Initialize all the screen variables
  5.     BORDER$ = STRING$(80,&HC4)
  6.     LINE.MASK$ = SPACE$(79)
  7.     MSG.MASK$ = SPACE$(20)
  8. ENDPROC
  9.  
  10. PROCEDURE CLEAR.SCREEN        'Clear the screen, set keys off    
  11.     KEY OFF : CLS : WIDTH 80
  12. ENDPROC
  13.  
  14. PROCEDURE SET.TITLES        'Redisplay all the titles 
  15.     DO CLEAR.SCREEN
  16.     LOCATE 1,1                     : PRINT L.TITLE$;
  17.     LOCATE 1,80-LEN(R.TITLE$)+1     : PRINT R.TITLE$;
  18.     LOCATE 3,1                     : PRINT BORDER$
  19. ENDPROC
  20.  
  21. PROCEDURE SET.FUNCTION.MSG    'Update the function message
  22.     LOCATE 2,1
  23.     PRINT LEFT$(FUNC.MSG$+MSG.MASK$,20);
  24. ENDPROC
  25.  
  26. PROCEDURE SET.ACTION.MSG    'Update the action message
  27.     LOCATE 2,61
  28.     PRINT RIGHT$(MSG.MASK$+ACT.MSG$,20);
  29. ENDPROC
  30.  
  31. PROCEDURE CLEAR.AREA        'Clear lines 4 thru 23
  32.     LOCATE 4,1
  33.     FOR CLRA.I = 4 TO 23
  34.         PRINT LINE.MASK$
  35.     NEXT CLRA.I
  36. ENDPROC
  37.  
  38. PROCEDURE SET.LINE.24        'Put a message on line 24
  39.     LOCATE 24,1
  40.     PRINT LINE.24.MSG$;
  41. ENDPROC
  42.  
  43. PROCEDURE CLEAR.LINE.24        'Clear the 24th line of the screen
  44.     LINE.24.MSG$ = LINE.MASK$
  45.     DO SET.LINE.24
  46. ENDPROC
  47.  
  48. PROCEDURE DRAW.BOX            'Draw a box
  49.     LOCATE BOX.ROW,BOX.COL
  50.     PRINT CHR$(&HDA);STRING$(BOX.LEN-2,&HC4);CHR$(&HBF)
  51.     LOCATE ,BOX.COL
  52.     FOR BOX.I=1 TO BOX.HT-2
  53.         PRINT CHR$(&HB3);SPACE$(BOX.LEN-2);CHR$(&HB3)
  54.         LOCATE ,BOX.COL
  55.     NEXT BOX.I
  56.     PRINT CHR$(&HC0);STRING$(BOX.LEN-2,&HC4);CHR$(&HD9)
  57. ENDPROC
  58.  
  59. PROCEDURE DRAW.FRAME        'Draw a frame (double lines)
  60.     LOCATE FRAME.ROW,FRAME.COL
  61.     PRINT CHR$(&HC9);STRING$(FRAME.LEN-2,&HCD);CHR$(&HBB)
  62.     LOCATE ,FRAME.COL
  63.     FOR FRAME.I = 1 TO FRAME.HT-2
  64.         PRINT CHR$(&HBA);SPACE$(FRAME.LEN-2);CHR$(&HBA)
  65.         LOCATE ,FRAME.COL
  66.     NEXT FRAME.I
  67.     PRINT CHR$(&HC8);STRING$(FRAME.LEN-2,&HCD);CHR$(&HBC)
  68. ENDPROC
  69.